home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple Reference & Present…ry 5: (Reseller Edition)
/
Apple Reference & Presentations Library 5.0 (Reseller Edition).iso
/
5-Fonts & Software
/
HyperCard 1.2.5
/
Help Stacks
/
Help
/
card_180637.txt
< prev
next >
Wrap
Text File
|
1987-11-25
|
3KB
|
151 lines
-- card: 180637 from stack: in
-- bmap block id: 183168
-- flags: 0000
-- background id: 4507
-- name:
-- part 1 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=12 top=123 right=151 bottom=117
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Day of week
----- HyperTalk script -----
on mouseUp
global userName
Ask "Please type your birthday." with the date
Put it into card field 1
Convert it to long date
If userName is empty then Put "That's a " & item 1 of it & "." into card field 2
else Put "That's a " & item 1 of it & "," && word 1 of userName & "." into card field 2
end mouseUp
-- part 2 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=13 top=154 right=175 bottom=96
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part 3 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=14 top=179 right=233 bottom=132
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=255 top=292 right=314 bottom=282
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
go to card id 6599
end mouseUp
-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=100 top=96 right=135 bottom=141
-- title width / last selected line: 0
-- icon id / first selected line: 19678 / 19678
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tell Me About...
----- HyperTalk script -----
on mouseUp
if visible of card field username then hide card field username
else show card field username
end mouseUp
-- part 6 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=160 top=73 right=168 bottom=344
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: userName
----- HyperTalk script -----
on mouseUp
hide card field userName
end mouseUp
-- part contents for background part 43
----- text -----
337,122
-- part contents for background part 2
----- text -----
Convert
-- part contents for background part 1
----- text -----
convert <container> to <format>
Converts the date or time in the container to the format specified. The formats are:
seconds --seconds since 1904
dateItems --integers representing year,month,day,
--hour,minute,sec,day of week
long date --Monday, May 11, 1987
short date --5/11/87
abbreviated date --Mon, May 11, 1987
long time --2:05:15 PM
short time --2:05 PM
-- part contents for card part 3
----- text -----
That's a Monday, Carol.
-- part contents for card part 6
----- text -----
This script uses any name you've typed in the User Name blank on the User Preferences card in the Home stack.
-- part contents for card part 2
----- text -----
12/21/42